www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin.asp
<!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="admin_verify.asp" -->
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=HomeName%> 留言本 管理首页</title></head>
<body<%=bodylimit%> onload="<%=framecheck%>">
<%
'<ShowArticle>
Response.Expires=-1
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype
'=============分页控制=============
Dim ItemsCount,PagesCount,CurrentItemsCount,ipage
if clng(ItemsPerPage)>0 then
ItemsPerPage=clng(ItemsPerPage)
else
ItemsPerPage=10
end if
rs.Open "SELECT COUNT(id) FROM main",cn,,,1
ItemsCount=rs(0)
rs.Close
if ItemsCount mod ItemsPerPage <>0 then
PagesCount=ItemsCount \ ItemsPerPage +1
else
PagesCount=ItemsCount \ ItemsPerPage
end if
if isnumeric(request("page")) and request("page")<>"" then
if clng(request("page"))>PagesCount then
ipage=PagesCount
elseif clng(request("page"))>0 then
ipage=clng(request("page"))
else
ipage=1
end if
else
ipage=1
end if
if ipage=PagesCount then
CurrentItemsCount=ItemsCount - ItemsPerPage*(ipage -1)
else
CurrentItemsCount=ItemsPerPage
end if
if ItemsCount>0 then rs.Open "SELECT * FROM (SELECT TOP " &cstr(CurrentItemsCount)& " * FROM (SELECT TOP " &cstr(ItemsPerPage*(ipage-1)+CurrentItemsCount)& " * FROM main ORDER BY id DESC) ORDER BY id ASC) ORDER BY id DESC",cn,,,1
'==============================
%>
<div align="<%=TableAlign%>">
<table border="<%=TableBorderWidth%>" cellpadding="2" style="border-collapse:collapse" width="<%=TableWidth%>" bordercolor="<%=TableBorderColor%>"><tr><td>
<!-- #include file="admintitle.inc" -->
<!-- #include file="admintool.inc" -->
<!-- #include file="topbulletin.inc" -->
<br>
<form method="post" action="admin_mdel.asp" name="form7">
<a href="javascript:for(var i=0;i<=form7.elements.length-1;i++)if(form7.elements[i].name=='seltodel' && form7.elements[i].checked){<%if DelSelTip=true then Response.Write "if (confirm('确实要删除选定留言吗？')==true)"%>form7.submit();break;}else if(i==form7.elements.length-1)alert('请先选定要删除的留言。');" onmouseover="return true;"><img src="image/icon_mdel.gif" border="0">删除选定留言</a>
<a href="javascript:for(var i=0;i<=form7.elements.length-1;i++)if(form7.elements[i].name=='seltodel' && form7.elements[i].checked){<%if PassSelTip=true then Response.Write "if (confirm('确实要通过审核选定留言吗？')==true)"%>{form7.action='admin_mpass.asp';form7.submit();}break;}else if(i==form7.elements.length-1)alert('请先选定要通过审核的留言。');" onmouseover="return true;"><img src="image/icon_mpass.gif" border="0">通过审核选定留言</a>
<br>
<%
if ItemsCount=0 then
Response.Write "<br><br><p align=center><font color=#808080>目前尚无留言。</font></p><br><br>"
else
dim pagename
pagename="admin"%>
<!-- #include file="listword_admin.inc" -->
<%rs.Close%>
<%end if%>
<input type="hidden" name="tpage" value="<%=request("page")%>">
<br><a href="javascript:for(var i=0;i<=form7.elements.length-1;i++)if(form7.elements[i].name=='seltodel' && form7.elements[i].checked){<%if DelSelTip=true then Response.Write "if (confirm('确实要删除选定留言吗？')==true)"%>form7.submit();break;}else if(i==form7.elements.length-1)alert('请先选定要删除的留言。');" onmouseover="return true;"><img src="image/icon_mdel.gif" border="0">删除选定留言</a>
<a href="javascript:for(var i=0;i<=form7.elements.length-1;i++)if(form7.elements[i].name=='seltodel' && form7.elements[i].checked){<%if PassSelTip=true then Response.Write "if (confirm('确实要通过审核选定留言吗？')==true)"%>{form7.action='admin_mpass.asp';form7.submit();}break;}else if(i==form7.elements.length-1)alert('请先选定要通过审核的留言。');" onmouseover="return true;"><img src="image/icon_mpass.gif" border="0">通过审核选定留言</a>
</form>
<%if PagesCount>1 then%>
<table border="1" cellpadding="2" style="border-collapse:collapse" width="100%" bordercolor="<%=TableBorderColor%>">
<tr height="25" align="center">
<td background="<%=TableTitlePic%>" bgcolor="<%=TableTitleBGC%>"><font color="<%=TableTitleColor%>"><b>[留言分页]</b></font></td>
</tr>
<tr>
<td bgcolor="<%=TableContentBGC%>" height="40" valign="top"><font color="<%=TableContentColor%>">
<%
for j=1 to PagesCount
if j=ipage then
Response.Write "<font color=" &PageNumColor_Curr& ">[" &cstr(j)&"]</font> "
else
Response.Write "<a href=admin.asp?page=" & cstr(j) & "><font color=" &PageNumColor_Normal& ">[" &cstr(j)&"]</font></a> "
end if
next
%>
</td>
</tr>
</table>
<%end if%>
</td></tr></table></div>
<%
cn.Close
set rs=nothing
set cn=nothing
'</ShowArticle>
%>
<!-- #include file="bottom.asp" -->
</body></html>